home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / inputout / function / keyboard / set.scr < prev    next >
Encoding:
Text File  |  1994-08-18  |  889 b   |  25 lines
  1. * LED and Typematic selection script
  2. * This script sets the typematic rate and delay, as well as playing
  3. *    with the LEDs.  It allows the user to verify that the rate
  4. *    and delay have been changed by letting them type at the prompt.
  5. *    If no input is recieved, the prompt times out after 10 seconds.
  6. @thread set.out
  7. @newalias kbd kbd.gra
  8. @log "Setting typematic and LEDs (non-interrupt)"
  9.   kbd kbd_open
  10.   kbd kbd_query_typematic
  11.   kbd kbd_set_typematic typasel=31 DELAYSEL=3
  12.   kbd kbd_query_typematic
  13.   kbd kbd_query_leds
  14.   kbd kbd_set_LEDs LEDS=111
  15.   kbd kbd_query_leds
  16. *  kbd response $PROMPT="Try the slow keyboard..." $PAUSE=10
  17. @log "Resetting typematic and LEDs (interrupt)"
  18.   kbd kbd_query_typematic
  19.   kbd kbd_set_typematic_i typasel=0 delaysel=0
  20.   kbd kbd_query_typematic
  21.   kbd kbd_query_leds
  22.   kbd kbd_set_leds_i leds=000
  23.   kbd kbd_query_leds
  24.   kbd kbd_close
  25.